5 IFPEEK(56)<>150THENPOKE56,150:CLR
6 IFATHEN41
10 DV=PEEK(186):IFDV<8THENDV=8
20 POKE53281,.:POKE53280,.:PRINT"[147]"
30 GOSUB260
40 SYS57812"FERN64.ML",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
41 IFA=0THENA=1:LOAD"9600 MENU",DV,1
42 IFA=1THENA=2:LOAD"9800 MENU.O",DV,1
43 IFA=2THENA=3:LOAD"I-MENU $CC00",DV,1
44 IFA=3THENA=4:LOAD"FRN DIR CA00",DV,1
50 B$="       [221]                        [221]"
70 PRINT"       [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
80 FORI=1TO7:PRINTB$:NEXT
90 PRINT"       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
120 PRINTTAB(15)"[145][145][145][145][145][204]OADING..."
200 PRINT"[144]LOAD"CHR$(34)"FERN64.CODE"CHR$(34)","DV
210 PRINT"RUN"
220 POKE44,64:POKE16384,0
230 POKE631,13:POKE632,13:POKE198,2
240 END
250 :
260 POKE214,15:PRINT
270 PRINT"  [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
280 PRINT"  [152]                                    "
290 PRINT"         [198] [197] [210] [206]    [214] [193] [204] [204] [197] [217]       "
300 PRINT"    [194]Y [201]AN [193]DAM (C) 1991 BY [211]OFTDISK  "
310 PRINT"     [214]1.0 [208]UBLISHED ON [204][207][193][196][211][212][193][210] #86   "
320 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
330 PRINT"           [193]LL [210]IGHTS [210]ESERVED        "
340 PRINT"                                      "
350 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
360 RETURN
10000 OPEN15,8,15,"S0:FERN BOOT":CLOSE15:SAVE"FERN BOOT",8:END